VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BPaginador"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
'local variable(s) to hold property value(s)
Private mvarnIndice As Integer 'local copy
Private mvarnPaginas As Integer 'local copy
Private mvarnRegistros As Integer 'local copy
Private mvarnRegistrosxPagina As Integer 'local copy

Friend Property Let nRegistrosxPagina(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nRegistrosxPagina = 5
    mvarnRegistrosxPagina = vData
End Property


Friend Property Get nRegistrosxPagina() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nRegistrosxPagina
    nRegistrosxPagina = mvarnRegistrosxPagina
End Property



Friend Property Let nRegistrosTotal(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nRegistros = 5
    mvarnRegistros = vData
End Property


Friend Property Get nRegistrosTotal() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nRegistros
    nRegistrosTotal = mvarnRegistros
End Property



Friend Property Let nPaginas(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nPaginas = 5
    mvarnPaginas = vData
End Property


Friend Property Get nPaginas() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nPaginas
    nPaginas = mvarnPaginas
End Property



Friend Property Let nIndice(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nIndice = 5
    mvarnIndice = vData
End Property


Friend Property Get nIndice() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nIndice
    nIndice = mvarnIndice
End Property




